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This bulletin describes five IBM 1401 
utility programs, five frequently used 
subroutines and four program error - 
detection aid routines for use in program 
testing. The above programs were de- 
veloped for use on 1401 systems using 
card input and card or printed output. 
Each program is easily adapted to per- 
form its function in conjunction with the 
user's programs. Flexibility of the 
programs provides for using either 100 
or 132 positions of printing, where appli- 
cable, as well as providing for adapting 
the programs for use on 1401 systems 
equipped with 1400, 2000, or 4000 posi- 
tions of core storage. 
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UTILITY PROGRAMS 

In programming the IBM 1401 to solve problems or to perform functions assigned to it 
by the user, several routines are required repeatedly. For example, prior to loading a 
program it is usually desirable to clear storage to blanks. Thus, a clear storage program 
is usually used prior to each loading of programs or data. Also, if a printed or punched 
record of storage contents is desired, a program is required to provide it. These programs 
and some others which are general in application and used frequently in the operation of 
data processing systems are classified as utility programs. Several utility programs 
will be supplied to assist in efficient operation of the 1401 system. 

The utility programs specified in this bulletin are: 

Clear Storage 

Card Loader 

Print Storage 

Punch Storage 

Punch- List- Sequence Check 

Each program is described separately, descriptions of the control cards necessary to 
specify the variables required to adapt the utility programs to the user's needs and/or 
equipment are included. 



CLEAR STORAGE ROUTINE 

Prior to loading information into the 1401 system it is frequently desirable to clear storage. 
This routine, contained in two cards, clears all of storage to blanks and leaves a word 
mark set in location 001. Column 27 of card nimiber two contains one of three alphabetic 
letters, depending upon the number of storage positions with which the 1401 system is 
equipped : 



T for 1400 positions 
Z for 2000 positions 
I for 4000 positions 



CARD LOADER PROGRAM 

This program is designed to load into the 1401 system those instructions (in machine 
language) and constants which are punched into cards. The instructions and constants 
supplied by the user should be punched in one-per-card format as specified below under 
Instruction or Constant Card Format. 

Instruction or Constant Card Format 

Column 1 is punched with a factor code. The codes are defined as follows: 

I - Factor is an instruction. 



K - Factor is a constant with a word mark to be set in the high-order position. 

N - Factor is a constant with no word mark to be set. 

* - Denotes a comment card (acceptable in this routine only to provide compatibility 
with the Punch- List-Sequence Check program). 

/ - Denotes an END card (optional; may be used to begin the execution of the 
object program immediately after loading). 

Columns 2-4 are punched with the number of characters in the instruction or constant, 
with the number right- justified and preceded by zeros when necessary; e. g. , an eight- 
character instruction is punched 008. 

Columns 5-7 are punched with the specified storage location of the factor, as follows: 

For an instruction, the storage location of the high-order position is specified. 
For a constant, the storage location of the low-order position is specified. 

Columns 8-onward, as needed, are punched with the instruction, constant, or comments. 
Remarks are acceptable, not only on comments cards, but also when punched to the right 
of instructions or constants. Instructions are coded in machine language. 

A comments card requires only an asterisk in column 1 and the remarks in columns 8- 
onward. The comments card is not processed by this routine, but is allowed to be 
included in the deck for convenience when processing the deck using the Punch-List- 
Sequence Check program. 

Self-loading subroutines in machine language may also be loaded along with related 
programs using this loader program. The procedure is to place the subroutine card 
deck, with its proper location designator card (see page 24), behind the related pro- 
gram deck. 

The Card Loader Program requires 110 storage locations, and it loads cards at the 
rate of 800 per minute. 

This program is self-loading; i. e. , it contains loading instructions as well as program 
instructions and constants. The loading instructions cause the program instructions and 
constants to be stored in the locations assigned to them. The Card Loader Program may 
be located in storage either in locations 0090-0199 or locations 1290-1399, depending 
upon which of two program decks is used. 



PRINT STORAGE PROGRAM 

This program is designed to print out selective portions of storage. The portion of 
storage to be printed out is specified in a control card (to follow the "rosnram declO 
which contains the locations of the lower and the upper limit of core storage and the 
model number of the IBM 1403 printer used with the system. The lower limit address 
is to be punched in card colmnns 1-3, the upper limit address in columns 4-6, and the 



1403 model number in column 7. Model 1, represented by a 1 -punch in column 7, specifies 
a 1403 equipped with 100 print positions, while model 2, represented by a 2 -punch in 
colimm 7, specifies 132 print positions. The Print Storage Program is self-loading 
and relocatable. The printed output will contain an indication of the positions of any 
word marks in the selected portion of storage. 

Relocatable programs are those programs whose instructions and constants may be 
assigned any locations in storage. Instructions and constants of relocatable programs 
are initially assigned storage locations beginning with location 000. Relocatable programs 
may be loaded into any locations in core storage by the user who supplies the starting 
location. The starting location, specified in a location designator card as explained on 
page 24, is the location in storage where the first instniction of the relocatable program 
is to be stored. The loading of a relocatable program is accomplished by its loading 
program which modifies the appropriate storage locations , incrementing each one by 
the startup address. 

This program requires 145 storage locations. 

Control Card Format 
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PUNCH STORAGE PROGRAM 

This program may be used to punch out selective portions of storage. The portion of 
storage to be punched out is specified in a control card (to follow the program 
deck) which contains the locations of the lower limit and the upper limit of core storage. 
The lower limit is to be punched in card columns 1-3 and the upper limit in columns 4-6. 
The card output resulting from this program is a self-loading deck. If desired, the usei* 
may specify in the control card, columns 7-9, the location of the instruction in the object 
program to be executed after reloading the selected portion of storage punched out. When 
this option is used, the Pimch Storage Program produces an END card which is selected 
into pocket 4 of the 1402 Card Read Punch. This card, when reloaded as the last card 
of the output produced by the Punch Storage Program, clears the read area and causes 
the program to branch to the specified starting location after the information punched 
out is reloaded into storage. The Punch Storage Program is self-loading and relocatable. 



This program requires about 160 storage locations, 
of storage at the rate of 250 cards per minute. 



It pimches out the selected portion 
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PUNCH- LIST-SEQUENCE CHECK 

This program is designed to initiate any or all of these operations: 

1. Punch a self-loading deck from cards that use the format of the card loader 
program (page 3) and/or relocatable decks. 

2. List the input cards which use the card loader format. 

3. Check the storage locations specified in the card-loader-format input cards 
to determine and print those that are not in sequence. 

The options selected by the operator and the designation of his 1401 system's storage 
capacity are specified either by using a control card or by setting the sense switches. 
The control card, if used, follows the pimch-list-sequence check program deck and 
precedes the input deck. 

If no storage capacity is designated, the program halts after it prints NO SIZE. If no 
output is specified, the program halts after it prints NO OUTPUT. In either case, 
if the operator presses the start key, the program continues and performs all three 
options: punching, listing, and sequence -checking, for a 1401 system that has 1400 
storage positions. If any other format is desired, the entire program must be re- 
loaded with a control card or with the sense switches set properly. 



Output Format 



1. Punch output: the output cards will be a self-loading program deck, the first 
three cards of which are clear-storage and load (bootstrap) cards. No output 
cards result from comments cards of the input deck, identified by an asterisk 
punch in column one (comment begins in column eight). 

2. List output: the program prints from the input deck, liie factor code from 
column 1; the number of characters in the instruction or constant from 
columns 2-4; the storage location of the instruction or constant from columns 5- 
7; the instruction or constant, and comments, if any, from colmnns 8-80. 
Comments cards also are listed. The first line printed on each page is the data 
from the last header card read, followed by the page number. 



3. Sequence-check output: when a break in direct sequence of storage locations 
occurs, SEQ CK prints to the left of the instruction at which the break occurs. 
If the list option is not specified as one of the outputs, SEQ CK prints followed 
by the card image at which the break occurs. The program checks not only 
that the addresses of the factors (instructions and constants) are in sequence, but 
also that no addresses are skipped. 

To sequence-check the storage locations of factors, a counter, set to an appropriate 
starting address for the first factor, increases by the number of characters in the 
count field of the first factor. The result is the computed storage location of the first 
factor, A test determines whether the computed and the assigned (punched-in-card) 
storage locations are the same. If they are not the same, SEQ CK prints. The counter 
computing the storage addresses increases by the number of characters in that factor, 
A test checks the computed and assigned storage locations for this factor. If the loca- 
tions are the same, the program proceeds to operate on the next factor. Note that when 
the locations do not agree, the counter resets to the assigned storage location pimched 
in the instruction or constant card. 

Following the control card may be any number of independent input decks (program 
decks that perform different applications) and preceding each deck must be a header 
card identified by an asterisk in column 1, an H in column 2, and heading information 
in columns 8-80, The header card punches (with 1001 in columns 1-4) when the pro- 
gram is punching, and it prints when the program is listing. Relocatable subroutines, 
which are part of a main program, are not independent decks, so they do not require 
header cards. Each new header card causes the program to initialize; punches the 
clear-storage and load cards if in a punching mode; resets the page number to 01 if in 
a listing mode; and resets the sequence-check counter if in the sequence -check mode. 
At an end-of-file condition the program halts. More decks are acceptable if they have 
the same control format. Simply insert them in the read feed and press the start key, 
A change in control format requires reloading the entire program deck with either a new 
control card or new sense-switch settings. 

An example of the Punch-List-Sequence Check Program procedure: 

To perform all three operations on a 4000-storage-position 1401 system and using 
an input deck with a header card (asterisk in column 1, H in column 2, name of 
program in columns 8 -onward) you may choose to specify the output options and 
system capacity by preparing a control card with a 1 in column 1, 1 in column 2, 
1 in column 3, and a 3 in column 4, Or you may use the sense switches of the 
IBM 1401 Processing Unit instead of the control card: switches B, C, D, and G 
DOWN; switches E and F UP, 

Ready the 1401 system, place the Punch-List-Sequence Check program deck 
(followed by the control card) in the IBM 1402 read-feed hopper and load the 
program. Place in the read-feed hopper, the input program deck (preceded by 
a header card) and in the punch-feed hopper place blank cards. Turn on the 
punch switch of the IBM 1402 Card Read Punch, To start program operation, 
press the start key of the 1402. The first three output cards are clear-storage 
and load cards. The next card is the header card of the self-loading output deck. 



Comments cards of the input deck do not punch but are included on the listing. 
If storage locations were skipped or out of sequence, SEQ CK has printed. An 
end-of-file condition halts the program. To start operation on another input 
program deck, place the deck in the read-feed hopper and press the read-feed 
start key of the 1401, transferring program control to the location of the first 
instruction of the Punch-List-Sequence Check program. 

It is not necessary that the Clear Storage precede the Punch-List-Sequence Check 
program. But it is essential that the 1403 has a carriage tape punched in channel 1 
for the first printing line and in channel 12 for page overflow. 
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Figure 1 
Methods of Specifying Output Options and 1401 System Storage Capacity 



SUBROUTINES 

Arithmetic computation routines such as multiply and divide are frequently necessary as 
subordinate parts, or subroutines, of data processing programs. Several subroutines 
will be supplied which the user may incorporate into his main programs. 

The subroutines specified in this bulletin are: 

Multiply I (for storage space economy) 

Multiply n (for speed economy) 

Divide 

Dozens-to-Units Conversion 

Units-to-Dozens Conversion 

Also presented are the instructions to transfer program control from a main program 
to a subroutine. 

Depending upon their structure and use, subroutines are usually classified as either 
open or closed. An open subroutine is a set of instructions, integrated into the logical 
flow of a main program, for performing a given function. If the function performed by 
the subroutine is required more than once during the execution of the main program, 
the instructions of the open subroutine appear at each place needed in the main program. 
Since the open subroutine is a part of the logical flow of the main program, data needed 
by the subroutine is provided by the main program in the same manner as data furnished 
to any other part of the main program. 

A closed subroutine is a set of instructions, not integrated into the logical flow of a main 
program, for performing a given function. The set of instructions of a closed subroutine 
appears only once in a main program, even though the function performed by the subroutine 
is used at many places in the program. A closed subroutine performs initialization of 
work areas and the necessary movement of data associated with its function. At each 
point in the main program where the closed subroutine is to be used, a linkage is inserted 
to provide (1) an entry to the subroutine, (2) a method for determining the address of the 
instruction in the main program to be executed after leaving the subroutine and (3) a means 
for obtaining the data required by the subroutine. 

Each subroutine described in this bulletin is a closed routine. As closed subroutines, 
they each contain instructions which initialize work areas and move information about 
as required in conjunction with performing the arithriietic for the operation. In some 
applications it may be advantageous to use open subroutines rather than closed ones, 
taking advantage of known contents of certain storage locations to eliminate unnecessary 
operations. Thus the user, by modifying the closed subroutines for some applications, 
will save a small amount of the execution time and a considerable amount of the storage 
space required. 

If no sign determination of the result is required, the multiply and the divide subroutines 
may be modified to save a small amount of time and a significant amount of storage space. 

Each subroutine is described and the instructions and parameter definitions to be inserted 
into the main program are specified. 



Program decks for each of the five siibroutines presented in this bulletin will be supplied 
in either of two formats: (1) symbolic, -'• or (2) self-loading, relocatable, in machine 
language. 



LINKAGE FROM MAIN PROGRAM TO SUBROUTINE 

In order to transfer control from the main program to a subroutine, the user must include 
in the main program two instructions and the storage address of the low-order positions 
of the data fields required. 

The two instructions are as follows: 
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The first instruction places the location of its (A) operand in a three-character work area, 
defined in the subroutine, whose location is just ahead of the first instruction of the 
subroutine. This instruction provides the subroutine with sufficient information so tiiat 
it can locate the parameter definitions and establish the location in the main program to 
which the subroutine transfers control after completing its operations. 

The second instruction is an unconditional branch instruction, transferring program 
control from the main program to the first instruction of the subroutine. 

The parameters required by the subroutine must follow the above two instructions. Their 
formats are as follows: 
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Control will be returned to the main program at the instruction following the last parameter 
definition. 

The following example illustrates tiie specifications given above. 



■'■See the bulletin "IBM 1401 Symbolic Programming System: Preliminary Specifications, 
form J24-0200. 
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The instruction shown on line 030 represents the last instruction in the main program to 
be executed prior to encountering the multiply subroutine linkage. In the subroutine it 
is desired to multiply rate times hours to yield the product PROD. The two instructions 
on lines 040 and 050 are required to provide entry to the multiply subroutine. Line 060 
specifies the multiplier parameter (RATE), and line 070 specifies the multiplicand 
parameter (HOURS). The instruction on line 080 is the first instruction in the main program 
to be executed after leaving the subroutine. 



MULTIPLY I SUBROUTINE 

This multiply subroutine is provided for use on 1401 systems not equipped with the 
multiply-divide optional feature. Multiply I is designed to multiply two numbers, each 
having a maximum of ten digits, using a minimum of storage space. The result is 
located in the symbolic location labeled PROD as a 20-digit number with the proper sign. 
The sign of the result is either one or two zone bits (B and A, or B) of the binary coded 
decimal codes B, A, 8,4, 2, 1. If the result of m.ultiplication is positive, the units position 
of location PROD contains (in addition to its binary coded decimal digit) both zone code 
bits B and A; if the result is negative, it contains the zone code bit B. The user may 
relocate the product, if desired, by an appropriate instruction; or he may use the product 
area for further operations on the result of the multiplication. 

This subroutine requires 219 storage locations. 

In order to incorporate Multiply I as a subroutine into a main program, the user appropriately 
inserts the following instructions and parameters in his main program: 
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The timing estimates for Multiply I are as follows: 

For the maximum size of multiplier and multiplicand, ten digits each, an average 
time of approximately 45 milliseconds is required. 

For multipliers and multiplicands one-half the maximum size (five digits each) 
an average time of approximately 28 milliseconds is required. 

In this subroutine the multiply time depends not only upon the number of digits in the 
multiplier and multiplicand, but also upon the value (0-9) of each digit of the multiplier. 
When comparing the amounts of time required to multiply a given multiplicand by various 
one-digit multipliers, the least amount of time is required to multiply tiie multiplicand 
by 0, and the greatest amount of time is required to multiply the multiplicand by 9. The 
average time, therefore, corresponds to a multiplier halfway between 4 and 5. For this 
reason the average multiply times in the two examples given above are based upon an 
average value of 4. 5 for each multiplier digit. 

As was previously mentioned, a small amount of time and a considerable amount of 
storage can be saved over that otherwise required if Multiply I is made an open subroutine 
or if it is altered to require no sign determination for the product. Making it an open 
subroutine will save approximately two milliseconds of time and 61 storage locations. 
This is a saving of approximately 4% of the time and 28% of the storage space required. 



Modifying this subroutine to make no sign determination for the product will reduce the 
time and storage requirements, compared to the unmodified version, by approximately 
one millisecond and 33 locations. This is a saving of about 2% and 15%, respectively, 
of the time and storage space required. 



MULTIPLY n SUBROUTINE 

Like Multiply I, this multiply subroutiQe is designed for use on 1401 systems not equipped 
with the multiply-divide optional feature. Multiply n is available to multiply two numbers, 
each having a maximum of nine digits, in a minimum amount of time for large numbers. 
The result is an 18-digit number located in symbolic location PROD with the proper sign. 
The BCD (i. e. , binary coded decimal) zone bit structure for the sign of the product is 
the same as that explained in the Multiply I Subroutine. Li the Multiply n Subroutine the 
salient feature is saving time, whereas in the Multiply I Subroutine it is conserving 
storage space. 
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To incorporate Multiply 11 as a subroutine of a main program, the same procedure and 
similar instructions as given for Multiply I Subroutine are used. The symbolic name of 
the subroutine is MULT2 in place of MULTl. 

This subroutine requires 338 storage locations. 

The timing estimates for Multiply 11 are as follows: 

For the maximum size of multiplier and multiplicand, nine digits each, a multiply 
time of approximately 26 milliseconds is required. Unlike Multiply I, multiply 
time for this subroutine is not affected by the value of multiplier digits because 
a table of factors of the multiplicand is used. 

For a multiplier and a multiplicand approximately one-half the maximum size 

(i. e. , five digits each) a multiply time of approximately 21 milliseconds is required. 

As previously mentioned, a small amount of time and a considerable amount of storage 
space can be saved over that otherwise required by modifying Multiply 11 for use as an 
open subroutine or by modifying it to require no sign determination for the product. The 
approximate amount of time and storage space saved when Multiply II is made an open 
subroutine is the same as that for Multiply I, namely two milliseconds (8%) and 61 
locations (18%). 

Modifying Multiply II to make no sign determination for the product will reduce the time 
and space requirements, compared to the unmodified version, the same as for Multiply I, 
or approximately one millisecond (4%) and 33 locations (10%). 



DIVIDE SUBROUTINE 

This subroutine is provided to accomplish division on 1401 systems not equipped with the 
multiply-divide optional feature. The length of divisor, dividend and quotient each may 
range from one to 20 digits, according to the conditions given on page 20. The results 
of division are stored by the subroutine in the symbolic field labeled QUOT (see Figure 3). 
The sign of the quotient and the sign of the remainder are represented in their respective 
locations as zone bits of the BCD code, as explained in the Multiply I Subroutine. The 
remainder sign is the same as the sign of the dividend and is included in the units position 
of the remainder (see Figure 3). The quotient sign is determined by the subroutine from 
a sign analysis of the dividend and the divisor and is included in the units position of the 
quotient. 

The Divide Subroutine accomplishes division by means of repetitive subtraction. For 
each quotient digit required, beginning with the high-order quotient digit position, the 
divisor is subtracted from the dividend; subtraction cycles continue until the result of 
subtraction turns negative, while the number of subtraction cycles is counted. The number 
of subtraction cycles required before the result turns negative is the quotient digit. 
Figure 2 illustrates the method of division used by the subroutine. 



13 



Shift- Factor, n 

One requirement of this subroutine is that the divisor be so aligned with the high-order 
positions of the dividend that no more than nine repetitive subtraction cycles are required 
before the result turns negative. In the example shown in Figure 2, considering the units 
position of the divisor with respect to the units position of the dividend, the divisor is 
offset to the left of the dividend one position. The number of positions of left-offset of 
the units position of the divisor with respect to the units position of the dividend is the 
shift- factor, n. The Divide Subroutine uses the shift- factor, n, for two purposes: 

1. To position the divisor with respect to the dividend prior to developing the 
first (high-order) quotient digit. 

2. To control the number of quotient digits developed by terminating division 
after developing (n + 1) quotient digits. 

As will be noted from each example of division given, the value of n is one less than the 
nimiber of quotient digits required in a problem. The value of n, which is a positive, 
2-digit number ranging from 00-19 inclusive, must be specified by the user once for 
each subroutine application, as shown on page 21. 

The method of division used by this subroutine, illustrated in Figure 2, is as follows: 

Division Problem: (+43) t (+3) = quotient (2 digits) and remainder 

In this example the quotient will be computed to two digits. The divisor (+3), the 
dividend (+43) and the shift-factor n (01) are specified to the subroutine as explained 
on page 21. The following program action is accomplished automatically by the 
subroutine. 

The subroutine clears the field labeled QUOT to zeros. The dividend (43) is loaded 
into the symbolic field labeled QUOT. In order to provide one position of storage 
in which each quotient digit will be developed (one at a time), the dividend is 
moved one position to the left. The relative alignment of dividend and divisor, 
specified by the shift -factor n, is maintained by modifying the subtract instruction 
so that the divisor will be subtracted from the right dividend position. 

+ 

1. The divisor (3) is subtracted from the dividend (04). The sign of the result (01) 
is tested: since it is positive, 1 is added to the contents of storage location 
QUOT (having been initially set to 0, it now contains 1) and subtraction will 
continue. 

_ + _ 

2. ihe divisor (3) is subtracted from the previous result of subtraction (01). The 

sign of the result (02) is tested; since it is negative, 1 is not added to the contents 
of storage location QUOT (it contains 1) and the divisor is added back to the 
result (02), restoring the previous positive result (Oi) which is less than the 
divisor. 
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Figure 2 
Division Problem: (^43) i (+3) = Quotient (2 Digits) and Remainder 
Information Supplied to the Divide Subroutine: 
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Development of the high-order quotient digit (1) is complete. To develop the 
second quotient digit the subroutine moves the contents of the field labeled QUOT, 
which contains 0131, one position to the left and places a zero in the low-order 
position (storage location QUOT). 

3. The divisor is subtracted from the (shifted) previous result, i. e. , the previous 
positive remainder. The sign of the result (10) is tested; since it is positive, 

1 is added to the contents of storage location QUOT (making the contents 1) 
and subtraction will continue. 

+ 

4. The divisor is subtracted from the previous result (10). The sign of the 

result (07) is tested; since it is positive, 1 is added to the contents of storage 
location QUOT (making the contents 2) and subtraction will continue. 

+ 

5. The divisor is subtracted from the previous result (07). The sign of the result 

(04) is tested; since it is positive, 1 is added to the contents of storage location 
QUOT (making the contents 3) and subtraction will continue. 

+ 

6. The divisor is subtracted from the previous result (04). The sign of the result 

(01) is tested; since it is positive, 1 is added to the contents of storage location 
QUOT (making the contents 4) and subtraction will continue. 

+ 

7. The divisor is subtracted from the previous result (01). The sign of the result 

(02) is tested; since it is negative, 1 is not added to the contents of storage 
location QUOT (it contains 4) and the divisor is added back to the result (02), 
restoring the previous positive result (01) which is less than the divisor. 

Development of the second quotient digit (4) is complete. Furthermore, division 
is complete because of a signal to the subroutine that (n + 1) quotient digits have 
been developed. The results of the problem in this example appear in storage in 
the symbolic field labeled QUOT as t 1 I. 

Location of Results 

The quotient consists of (n + 1) digits. The low-order position of the quotient and the 
quotient sign are located in symbolic location QUOT. The remainder consists of the 
same number of digits as the divisor field. The low-order position of the remainder and 
the remainder sign are located in storage at symbolic location [qUOT - (n + 1)1 . Defining 
the length of the divisor field as LDVR, the zero, which always precedes the remainder, 
and the associated word mark both are located in symbolic location [QUOT - (n + 1 + LDVR)]. 
It should be noted that the quotient and the remainder are not separated by a word mark. 
Figure 3 illustrates the contents of the symbolic field QUOT. 

Length of Dividend 

In the example shown in Figure 2, the division problem was (+43) t (+3), to yield a two-digits 
quotient and a remainder. However, if the number of quotient digits desired is increased, 
the dividend length must be increased by adding a sufficient number of zeros to the low- 
order end. The two following examples, shown in Figures 4 and 5, illustrate the effect 
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• Symbolic Field Labeled QUOT ' 
Number of digits = LDVR + n + 2 



Zero 
and 
Word 
Mark 



Remainder 



No. of digits = LDVR 



QUOT - (n + 1 + LDVR) 



-ff- 



+ or 
X 



Quotient 



No. of digits = n + 1 
■If 



-!h 



QUOT - (n + 1) 



+ or - 
X 



t ■ 

QUOT 



Figure 3 
Contents of Symbolic Storage Field QUOT 

of the dividend length as well as the shift-factor. The first of these (shown in Figure 4)^ 
while using the same values of divisor and dividend shown in Figure 2, requires that the 
quotient be computed more precisely than in Figure 2. The second example to follow, in 
addition to illustrating the method of division, points out the use of the range of data in 
applying the Divide Subroutine. 



Referring to Figure 4, the division problem is: 
and remainder. 



(+43) f (+3) = quotient (4 digits) 



The length of the dividend (43) must be increased before use by the subroutine 
by adding two zeros to the low-order end if the quotient is to be computed to four 
digits. The altered dividend appears in storage as 4300. The problem to be solved 
by the subroutine is represented as: 

(+43. 00) T (+3) = XX. XX and remainder 

The value of n (the shift-factor) specified to the subroutine is equal to one less 
than the number of quotient digits desired. In this example, therefore, n is equal 
to 3; it is specified to the subroutine as 03. It should be noted that the value of n 
causes the divisor to be positioned with respect to the altered dividend ^s supplied 
to the subroutine (e. g. , 4300). 

Referring now to Figure 5, gross weekly pay divided by total hours worked per 
week will yield average pay for this example. Average pay will be computed to 
mils. Two practical restrictions will be assumed and used advantageously: 

1. Average pay does not exceed 9. 999 dollars. 

2. Total number of hours worked per week does not exceed 99. 9. 

The form of the computed quotient, average hourly pay, is X. XXX. Gross pay 
and total hours worked per week are in the form XXX. XX dollars and XX. X hours, 
respectively. The divisor, total hours per week, will be used in the form given. 
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Figure 4 
Division Problem: (+43) i (+3) =Quotient (4 Digits) and Remainder 
Information Supplied to the Divide Subroutine: 
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Figure 5 
Division Problem: (+18105) f (+564) = Quotient (4 Digits) and Remainder 
Information Supplied to the Divide Subroutine: 
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XX. X hours. The form of the dividend, however, must be altered prior to its 
use in the Divide Subroutine to yield the four quotient digits which are required 
in the statement of the problem. 

To use a specific example: 

Gross weekly pay $181. 06 

Number of hours worked in the week 56. 4 

To determine the number of zeros required to be added to the low-order positions 
of the dividend, the usual rule is used: the number of decimal places in the dividend 
equals the simi of the number of decimal places in the quotient and the divisor. 
In this example, the sum of the number of decimal places in the divisor (XX. X) 
and the quotient (X. XXX) is four; therefore the form of the dividend (XXX. XX) 
must be altered by the addition of two zeros to the low-order end so that it has 
four decimal places. The altered form of the dividend will be XXX. XXOO, and for 
the specific example it will be supplied to the subroutine as 1810600. The problem 
to be solved by the subroutine is represented as: 

(+181. 0600) T (+56. 4) = X. XXX and remainder 

To evaluate n, the shift-factor: n = the number of quotient digits - 1; since there 
are four quotient digits required in this example, n is equal to 3. The shift-factor 
03 specifies to the Divide Subroutine that it must left-offset the units position of 
the divisor three positions with respect to the units position of the dividend prior 
to the first subtraction operation. 

Conditions Governing Length and Position of Divisor and Dividend 

The conditions governing the maximum length (i. e. , the maximum number of digits) and 
the position of divisor and dividend are as follows: 

1. The length of the dividend field must be no greater than 20. 

2. The length of the divisor field plus the shift-factor n must be no greater than 20. 

3. The length of the dividend field must be greater than the shift-factor n. 

4. There must be no more than nine repetitive subtraction cycles executed before 
the result of subtraction turns negative. This condition can occur, of course, 
only when developing the high-order quotient digit. 

A divisor whose value is zero is one special case which does not meet condition 4. Other 
cases which do not meet condition 4 occur if too small a value of the shift-factor n is 
specified. 
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If condition 4 above is not met, the Divide Subroutine exits, setting the overflow indicator 
and returns program control to the main program. The overflow condition will be detected 
only if a subsequent logic operation (i.e. , test and branch on overflow) is performed by 
the main program before an add or subtract operation resets the indicator. The test and 
branch instruction shown on line 060 followic^ the parameter specifications is recommended 
to detect an overflow condition. 

To incorporate the Divide Subroutine in a main program, the user appropriately inserts 
the following instructions and parameters in his main program: 



LINE 
3 5 


COUNT 
6 7 








OPERATION 
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On line 050 above, xx represents the value of the shift-factor n. This subroutine requires 
approximately 403 storage locations. 

The timing estimates for the Divide Subroutine are as follows: 

For a divisor of 10 digits and a dividend of 20 digits yielding a quotient of 10 
digits each having an average value of 4. 5, this subroutine requires approximately 
51 milliseconds. In a manner analogous to Multiply I, the average value of a 
quotient digit is taken to be that value of the digit corresponding to the average 
division time. It lies halfway between digit values 4 and 5; hence it is equal to 4. 5. 

For a divisor of 5 digits and a dividend of 10 digits yielding a quotient of 5 digits 
each having an average value of 4. 5, this subroutine requires approximately 26 
milliseconds. 

As mentioned previously, modifying Divide for use as an open subroutine or modifying 
it to require no sign determination for the quotient reduces the amount of time and stor- 
age space otherwise required. The amount of time saved when Divide is made an open 
subroutine is approximately three milliseconds, or 6%; the space saved is approximately 
80 locations, or 20%. 

Modifjdng this subroutine to make no sign determination for the quotient reduces the time 
and space required compared to the unmodified version by approximately one millisecond, 
or 2%, and 40 storage locations, or 10%. 
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DOZENS-TO-UNITS CONVERSION SUBROUTINE 

This subroutine converts dozens to units. The dozens field may range from 0/12 dozen 
to 9, 999, 999 11/12 dozens. The fractional portion of dozens is located in the low-order 
position of an eight-digit (maximum) field. The integers through 9 denote the fractions 
0/l2 through 9/12 in the units position of the dozens field; the symbols minus (-) and 
ampersand (&) denote respectively the fractions 10/12 and 11/12 in the units position of 
the dozens field. The result of conversion is located in symbolic locations UNITS as a 
nine-digit number. 

To incorporate Dozens-to-Units Conversion as a subroutine of a main program, the user 
appropriately inserts the following instructions and parameter in his main program: 



LINE 
3 5 


COUNT 
6 7 


LABEL 
8 13 


OPERATION 

14 16 


(A) OPERAND 
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This subroutine requires 132 storage locations. 

The estimates for timing for this subroutine are as follows: 

For the maximum size of the dozens field, 8 digits, yielding a maximum size of 
the units field, 9 digits, this conversion subroutine requires approximately three 
milliseconds. 

For values approximately one-half the maximum given above, the time required 
is approximately the same, being 3% less than that required for fields of 
maximum size. 

As mentioned previously, making Dozens-to-Units Conversion an open subroutine reduces 
the time and storage otherwise required. The approximate reductions are slightly less 
than one millisecond (27%) and 38 storage locations (29%). 

UNITS- TO-DOZENS CONVERSION SUBROUTINE 

This subroutine converts units to dozens, including fractions of dozens 0/l2 through 11/12. 
The units field may range from one to eight digits (a nine-digit units field is possible if 
it creates an eight-digit result including the fraction of dozens). The result of conversion 
is located in symbolic location DOZENS as an eight-digit nimiber, whose units position 
integers through 9 denote the fractional parts of dozens 0/12 through 9/12; and whose 
units position symbols minus (-) and ampersand (&) denote respectively the fractions 
10/12 and 11/12. 
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To incorporate Unlts-to-Dozens Conversion as a subroutine of a main program, the user 
appropriately inserts the following instructions and parameter in his main program: 



LINE 
3 5 
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This subroutine requires approximately 205 locations in storage. 

Timing estimates for this subroutine are as follows: 

For the maximum size of 8 digits in the units field, yielding a maximum of 7 
"dozens quotient" digits, each having an average value of 4. 5, this subroutine 
requires approximately 35 milliseconds. (For an explanation of the average value 
of 4. 5, see the timing estimates for the Divide Subroutine, page 21), 

For a units field one -half the maximum size, the time required is approximately 
24 milliseconds. 

As in the other subroutines presented in this bulletin, makii^ Units-to-Dozens.an open 
subroutine reduces the time and storage otherwise required. The approximate reductions 
are the same as those for the Dozens -to-Units Conversion Subroutine, being slightly 
less than one millisecond (3%) and 38 storage locations (19%). 
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PROGRAM ERROR-DETECTION AIDS 

It is recommended practice, of course, to machine test data processing programs before 
puttii^ them into productive operation. Programming errors discovered during program 
testing should be traced to find their cause. The user usually localizes the causes of 
program errors by a procedure such as comparing the actual contents of certain Storage 
locations with the contents he expects from the previous steps of his program. He may, 
therefore, wish to insert halt instructions at strategic places in his program so that he 
may manually read out or print out storage contents; or he may wish to insert linkages 
into his program at convenient places to automatically print out blocks of storage contents, 
to aid in finding the first occurrence of a program error. 

Several programs will be supplied to aid the user during program testing to detect the 
cause of program errors, if any exist. The program error-detection aids presented in 
this bulletin are: 

Insert Halts 

Insert Linkages to Fixed Print Storage 
Insert Linkages to Selective Print Storage 
Remove Linkages 

Caution should be observed when selecting the instruction after which linkages to a routine 
are placed. For example, if a linkage to a print storage routine is placed after an 
unconditional branch instruction, the print storage routine will not be executed. If a 
linkage to a print storage routine is placed after a conditional branch instruction, the 
print storage routine will be executed only if the condition is not met. If a linkage to a 
print storage routine is placed after an instruction which is modified by another operation, 
the object program will not function properly and the print storage routine might not be 
executed. 

All of the above programs are relocatable and self-loading. Each requires that the 
first card of the deck be a housekeeping card, which is supplied with the deck, and that 
tiie second card of the deck be a location designator card, which the user prepares. In 
the latter card the user specifies the starting location, represented by kkk, of the 
relocatable error-detection aid program. The format for the location designator card 
is as follows: 

Columns 33-39 L046183 

Columns 40-43 1001 

Columns 44-46 kkk (starting location of relocatable program) 

The instruction in columns 33-39 causes the starting location punched in columns 44-46 
to be loaded into locations 181-183. When a relocatable program is being loaded, the 
loading program instructions (which are included in the program decks of self-loading 
programs) use the starting address to modify the appropriate storage addresses of program 
instructions and constants. 

Each program is described separately; descriptions of the control cards necessary to 
specify the variables to adapt the error-detection aids to the user's needs and/or equipment 
are included. 
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INSERT HALTS 

This program is designed to insert halt instructions into an object program. The user 
specifies in a control card the location and lei^h (character count) of the instruction after 
which he desires to insert a halt instruction, and the location of the "patch" area. The 
patch consists of the instruction after which the halt is to be placed and the halt instruction; 
the patch area may be any available area in core storage large enough to contain these 
instructions. If more than one patch is desired, they may be placed in one patch area, 
as indicated below in the explanation of the control card, columns 5-7. 

The halt instruction has either one of two formats: • xxx or • xxxb, where! 

decimal is the operation code for stop. 

xxx represents the machine address of the instruction in the object program to be 
executed next after executing the halt instiniction. This address is provided 
automatically by the Insert Halts program. 

b is one blank position required by the Insert Halts program for only the last- 
halt instruction in the patch area. 

The size of patch areas required will be illustrated by the following two examples: 

If it is desired to insert a halt instruction after only the following object program 
instruction: 

M 035 226 

a patch area containing at least twelve storage locations is required, as follows: 
seven storage locations for the object program instruction above and five locations 
for the halt instruction. In this instance the halt instruction is required to contain 
one blank position because it is the last halt instruction in the patch area. 

Using another example, if it is desired to insert halt instructions after each of the 
following object program instructions: 



M 035 226 



A 044 S56 



E S56 299 



080 
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a patch area containing at least 42 storage locations is required. Of this number 
25 locations are required for the object pi^ogram instixictions and 17 locations 
are required for the halt instructions. The 17 locations are required for three 
halt instructions with the format • xxx and the last halt instruction with the format 
• xxxb. 

This program is self-loading and relocatable. It requires 184 storage locations. 



Control Card Format 



f 

1 2 3 


4 


5 6 7 




Location of 


Instr. 


Address of 




Instruction 


Length 


Patch Area, 




Removed 




or *bb 





Columns 1-3 are to be punched with the machine address in the assembled program of 
the instruction following which the halt instruction is to be placed. This instruction must 
be four to eight characters in length; it will be removed from its assembled location and 
placed in the patch area by the program. 

Column 4 is to be punched with the length of the instruction to be removed to the patch 
area. The length, as stated above, may be from four to eight characters. 

Columns 5-7 are to be pimched with either the machine address of the patch area, or *bb. 
If the patch is to be placed behind the previous patch, column 5 should contain an asterisk 
punch and columns 6 and 7 should be blank. 



Program flow after insertion of a halt instruction is illustrated in Figure 6 below. 
Object Program Patch 



Instruction 
A 



Instruction 
B 



rormerry. 

Instruction C -^ ■ " — t 



"^ 




Branch to 
Patch 



Instruction 
D 



Figure 6 

pjQQpgjvj FTOW Aft^^ T-rttf^TTi r»jn ^ Uglt Trtc fyi i cH <'^t% 



26 



If an END card (optional) is desired to be used to begin execution of the object program 
after Insert Halts program execution is completed, its format should be /in080 in columns 
1-7, which clears the read area to blanks and branches to location HI, the starting address 
of the object program. If an END card is not used, locations 001-080 contain the word 
marks set by the self-loading Insert Halts program. 

The order of the cards required for this routine is as follows: The first card is the 
housekeeping card, supplied with the Insert Halts program deck. The second card, prepared 
by the user, is the location designator card. The self-loading Insert Halts program deck 
supplied by IBM follows. The control cards, prepared by tiie user, follow the Insert Halts 
program deck. The optional END card, prepared by the user, is the last card. 

The operating procedure for this routine is as follows: An object program into which it 
is desired to insert halt instructions is loaded into the 1401 system. The card deck for 
Insert Halts program, assembled in the order indicated in the previous paragraph (with 
the END card as the last card), followed by the data cards for the object program if they 
are required, are placed in the 1402 read feed hopper and loaded. At this point in the 
procedure the following program action has occurred: 

1. The object program has been loaded. 

2. The Insert Halts routine has been loaded and executed; i. e. , the linkages to 
the halt instructions have been inserted into the object program. 

If the optional END card was used, as recommended, object program execution is begun 
automatically after the Insert Halts program has been executed. Execution of the object 
program continues, including reading of the data cards if the object program calls for this 
operation, until an inserted halt instruction stops the program. Upon the program's 
stopping, the user may take such action as he had planned; e. g. , he may check input 
locations, intermediate results, or output locations. Depression of tiie Start key on the 
1401 Processing Unit console causes program execution to proceed. Object program 
execution continues until the next inserted halt instruction stops it, and so on until the 
program has been completely executed or until a programming error is encountered which 
cannot be corrected immediately. 

After obtaining the desired information about the object program being tested with the 
aid of tiie Insert Halts program, the user may wish to restore the object program to its 
original condition; i. e. , to remove from the program the inserted halt instructions. He 
may do this by using another program, Remove Linkages, which is described on page 33. 



INSERT LINKAGES TO FIXED PRINT STORAGE 

This program inserts into an object program linkages to a routine which prints out the 
contents of storage between specified limits. The limits of storage printout are specified 
by the user in the print storage control card, the format of which is shown below. 

The linkages to the print storage routine will be inserted by this program after any 
appropriate object program instruction of the user's choice. The program action in 
inserting the linkages of this routine is similar to that of Lisert Halts program. 
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The Insert Linkages to Fixed Print Storage program consists of two routines, a patch 
routine (Phase I) and a print storage routine (Phase H). The print storage routine uses 
only one control card, while the patch routine may utilize several control cards because 
linkages may be inserted to print storage at several points in a program. Patch routine 
control cards are required to specify the points in the program at which storage printout 
is desired. Formats for the control cards are given below. 

Control Card Format — Patch Routine (Phase I) 



1 2 3 


4 


5 6 7 




Location of 


Instr. 


Address of 




Instruction 


Length 


Patch Area, 




Removed 




or *bb 





The fields of this contix)l card are the same as those explained in the Insert Halts program, 
page 26. 

Control Card Format — Print Storage Routine (Phase 11) 



1 2 3 


4 


5 6 


7 




Selected Block of Storage: 








Lower 




Upper 


1403 




Limit 




Limit 


Model 




Address 




Address 


Number 





The above two machine addresses, columns 1-6, are specified by the user to cause the 
contents of the corresponding block of core storage to be printed out. In this routine the 
units and tens positions of the lower limit of the block of storage being printed determine 
the leftmost print position of the first printed line of the block. In like manner the units 
and tens positions of the upper limit determine the rightmost position of the last printed 
line. For example, if the lower limit and the upper limit of the block of storage being 
printed is, respectively, 623 and 974, the printed results would have the following format: 



Line No. 

1 

2 
3 
4 
5 
6 
7 



Contents of Storage Locations 

623-700 
(Is representing word marks for line 1) 

701-800 
(Is representing word marks for line 3) 

801-900 
(Is representing word marks for line 5) 

901-974 
(Is representing word marks for line 7) 



Print Position No. 

23-100 

1-100 

1-100 

1-74 



Prior to execution of the object program (i. e. , the program to which this program error- 
detection aid routine is being applied), the contents of the block of core storage defined 
in the print storage control card is automatically printed out, together with a line indicating 
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the limits of storage printed and a heading line identifying the units positions of the 
printed output (i. e. , 1234567890 and repeat, to identify print positions 1, 2, 3, 4, 5, 6, 
7, 8, 9, 10, and so on to 100). Prior to each subsequent printout the object program 
instruction which was last executed is printed out. 

Colimm 7 of the print storage control card specifies the model number of the 1403 printer. 
A 1-punch specifies model 1 printer, equipped with 100 print positions; a 2-punch specifies 
model 2 printer, equipped with 132 print positions. 

If an END card (optional) is used to begin execution of the object program after execution 
of the Insert Linkages to Fixed Print Storage routine is completed, its format should be 
/ni080 in columns 1-7, which clears the read area to blanks and branches to location in, 
the starting address of the object program. If an END card is not used, locations 001- 
080 contain the word marks set by the self-loading print storage routine. 

After this program has inserted linkages into an object program, program flow proceeds 
as indicated in Figure 7. 

The minimum size of the patch area is from 18 to 22 storage locations per object program 
instruction removed to the patch area depending upon the length of the instruction so 
removed. 

The Insert Linkages to Fixed Print Storage program requires 253 storage locations 
and prints storage at the rate of 320 lines per minute. 

The order of the cards required for this routine is as follows: 



1. Housekeeping card (first card) 

2. Location designator card 

3. Phase I program deck 

4. Phase I control cards 

5. Phase n program deck 

6. Phase n control card 

7. END card (optional) (last card) 



Supplied with the program deck 
Prepared by the user 
Supplied by IBM 
Prepared by the user 
Supplied by IBM 
Prepared by ihe user 
Prepared by the user 



The operating procedure for this routine is as follows: An object program is loaded into 
the 1401 system, and the Insert Linkages to Fixed Print Storage deck, assembled as 
described in tiie previous paragraph, is used to load that routine into the 1401 system. 
At this point in the procedure the following program action has occurred: 

1. The object program has been loaded. 



2. Phase I, the patch routine, has been loaded and executed, 
been inserted into the object program. 



The linkages have 



3. Phase n, the print storage routine, has been loaded. 

Next, the initial printout occurs, as follows: the first line is a heading line identifying 
the units positions of printed output (as ejqjlained above), the second line indicates the 
storage limits of the printout, and the third and succeeding lines, as required, contain 
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alternately the contents of storage and locations of word marks (as indicated on page 28). 
If the optional END card, placed as the last card of the insert linkages deck, was used, 
object program execution begins automatically. When the object program branches to 
the patch area, it executes the instruction prior to the print storage linkages (e. g. , 
Instruction C , Figure 7) and executes the linkage instructions to the program error- 
detection aid. The print storage routine prints the last object program instruction exe- 
cuted (e. g. , Instruction C, Figure 7), and the contents of the specified block of storage. 
Each printed line of storage contents is followed by a printed line indicating the word 
marks for that line, as shown on page 28. The object program proceeds automatically, 
executing the next instruction (e. g. , Instruction D in Figure 7); and so on until the object 
program has been completely executed, printing out the instructions and storage contents 
as specified by the user. Thus the Insert Linkages to Fixed Print Storage routine pro- 
duces a printed record of the contents of the storage locations specified by the user to 
aid in locating a programming error. 
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Formerly, 
Instruction C 
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Figure 7 
Program Flow After Inserting Linkages to Print Storage 

INSERT LINKAGES TO SELECTIVE PRINT STORAGE 

This program inserts into an object program linkages to a routine which prints out storage 
contents between selective limits. The limits of storage printout using this routine is 
specified for each instruction after which printout is to occur, whereas the limit of 
storage printout using the Insert Linkages to Fixed Print Storage routine is specified 
once for each object program application. 
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As with the Insert Linkages to Fixed Print Storage, the linkages to the print storage 
routine will be inserted by this program after any appropriate object program instructions 
of the user's choice. The program action in inserting the linkages is similar to that of 
Insert Halts program. 

The Insert Linkages to Selective Print Storage program consists of two routines, a patch 
routine (Phase I) and a print storage routine (Phase 11). The patch routine requires one 
or more control cards whose format is given below. 

Control Card Format — Patch Routine (Phase I) 



1 2 3 


4 


5 6 7 


8 9 10 


11 


12 


13 




Location of 


Instr. 


Location of 


Selected Block of Storage: 








Instruction 


Length 


Patch Area, 












Removed 




or *bb 


Lower 
Limit 
Address 




Upper 
Limit 
Address 







The first three fields, card columns 1-7, are the same as those explained in the Insert 
Halts program, page 26. Columns 8-10 and 11-13 specify, respectively, the lower and 
the upper limits of storage being printed. As in the Insert Linkages to Fixed Print Storage 
program, the units and tens positions of the lower limit address determine the leftmost 
print position of the first line, and the units and tens positions of the upper limit address 
determine the rightmost position of tiie last printed line. 

Control Card Format — Initial Printout 



1 
1 2 3 


4 


5 


6 


7 


Initial Storage Printout: 








Lower 




Upper 




1403 


Limit 




Limit 




Model 


Address 




Address 




Number 



The two machine addresses above in columns 1-6 specify the block of storage selected 
to be printed out prior to execution of the object program and column 7 specifies the 1403 
model nxmiber. A 1-punch in colmnn 7 specifies model 1, equipped with 100 print positions; 
a 2-punch specifies model 2, equipped with 132 print positions. If no initial storage 
printout is desired, a card with colunms 1-6 left blank must be substituted for the card 
whose format is shown above. 

As ejqjlained in the Insert Linkages to Fixed Print Storage program, if it is desired to 
use an END card (optional) to clear the read area to blanks and begin execution of the 
object program, its format should be /IIIOSO in columns 1-7, m being the object program 
starting location. The flow of program control for this program is similar to that shown 
on page 30. 

The minimum size of the patch area required is from 24 to 28 storage locations per object 
program instruction removed to the patch area depending upon the length of the instruction 
so removed. 
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The Insert Linkages to Selective Print Storage program requires approximately 293 
storage locations and prints storage at the rate of approximately 320 lines per minute. 

The order of the cards required for this routine is as follows: 

1. Housekeeping card (first card) Supplied with the program deck 

2. Location designator card Prepared by the user 

3. Phase I program deck Supplied by IBM 

4. Phase I control cards Prepared by the user 

5. Phase II program deck Supplied by IBM 

6. Initial printout control card (or blank) Prepared by the user 

7. END card (optional) (last card) Prepared by the user 

The operating procedure for this program is as follows: An object program is loaded 
into the 1401 system, and the Insert Linkages to Selective Print Storage program, the 
deck for which was described in the previous paragraph, is then loaded. At this point 
in the procedure the following program action has occurred: 

1. The object program has been loaded. 

2. Phase I, the patch routine, has been loaded and executed. The linkages have 
been inserted into the object program. 

3. Phase II, the printout storage routine, has been loaded. 

If a block of storage was specified in the initial printout control card in columns 1-6, 
an initial printout occurs as follows: the first line is a heading line identifying the units 
positions of printed output (as ejqilained on page 29 ), the second line indicates the 
storage limits of the printout, and the third and succeeding lines, as required, contain 
alternately the contents of storage and locations of word marks (as indicated on page 28). 
If no block of storage was specified in columns 1-6 of the initial printout control card, 
no initial printout occurs. If the optional END card, placed as the last card of the insert 
linkages deck, was used, program execution begins automatically. When the object program 
branches to the patch area, it executes the instruction prior to the print storage linkages 
(e.g. , Instruction C, Figure 7) and executes the linkage instructions to the program error- 
detection aid routine. The print storage routine prints on the first line the last object 
program instruction executed (e.g. , Instruction C, Figure 7) and the printout storage 
limits specified for the instruction, on the second line the heading identifying the units 
positions of the printed output, and on the third and succeeding lines, as required, 
alternately the contents of the block of storage specified for the instruction and the 
locations of word marks (as shown on page 28). The object program proceeds automatically, 
executing the next instruction (e. g= , Instruction D in Figure 7); and so on until the obiect 
program has been completely executed, printing out the instructions and storage contents 
specified by the user. Like the Insert Linkages to Fixed Print Storage program, this 
routine produces a printed record of the contents of storage locations specified by the 
user to aid in locating a programming error. 

As explained in the Insert Halts and the Insert Linkages to Fixed Print Storage programs, 
the linkages may be removed from the object program by using the Remove Linkages 
program, described on page 33. 
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REMOVE LINKAGES 

This program removes from an object program those linkages previously inserted to aid 
in detecting program errors. The linkages removed are replaced by the instructions 
previously removed from the object program. The control cards required for this program 
are the same control cards used with the programs (i. e. , Insert Halts, Insert Linkages 
to Fixed Print Storage, or Insert Linkages to Selective Print Storage) to insert the 
linkages into the object program. The Remove Linkages program is self-loading and 
relocatable. It requires approximately 171 storage locations and removes linkages at 
the rate of 800 cards per minute. 

If an optional END card is used to begin, automatically, execution of the object program 
after execution of the Remove Linkages routine is completed, its format should be /in080 
in columns 1-7. This instruction clears the read area to blanks and branches to location 
in, the starting address of the object program. If an END card is not used, locations 
001-080 contain the word marks set by the self-loading Remove Linkages program. 

In addition to removing linkages previously inserted into an object program by one of 
the insert linkage programs described in this bulletin, it may be convenient to insert 
new linkages, all in one machine pass. This may be done by using the Remove Linkages 
program. The following is an example of the order of cards required to remove linkages 
previously inserted into an object program by Insert Linkages to Fixed Print Storage and 
to insert new linkages using Insert Linkages to Selective Print Storage: 



1. Housekeeping card for Remove Linkages 
program deck (first card) 



Supplied with the Remove 
Linkages program deck 



2. Location designator card 

3. Remove Linkages program deck 



Prepared by the user 
Supplied by IBM 



4. Control cards for Phase I and Phase n 
of the Insert Linkages to Fixed Print 
Storage program 



Prepared by the user (the same 
control cards used to insert 
the linkages now being removed) 



5. Housekeeping card for Insert Linkages 
to Selective Print Storage program 



Supplied with the program deck 



6. Location designator card for Phase I of 
the Insert Linkages to Selective Print 
Storage program 

7. Phase I program deck for Insert 
Linkages to Selective Print Storage 
program 



Prepared by the user 



Supplied by IBM 



8. Phase I control cards of the Insert 
Linkages to Selective Print Storage 
program 



Prepared by the user 
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9. Phase II program deck of the Insert Supplied by IBM 

Linkages to Selective Print Storage 
program 

10. Initial printout control card of the Prepared by the user 
Insert Linkages to Selective Print 

Storage program 

11. END card (optional) (last card) Prepared by the user 

Program operation using the example just described in the paragraph above is as follows: 
Assuming that the object program with linkages previously inserted is stored in the 1401 
system, the deck used with Remove Linkages routine (assembled as described in the 
previous paragraph) is loaded into the 1401 system. At this point in the operating procedure 
the following program action has occurred: 

1. The Remove Linkages routine has been loaded and executed. The linkages 
have been removed from the object program and the object program has been 
restored to its original condition. 

2. Phase I, the patch routine, of the Insert Linkages to Selective Print Storage 
program has been loaded and executed. The new linkages have been inserted 
into the object program. 

3. Phase 11, the printout storage routine, of the Insert Linkages to Selective Print 
Storage program, has been loaded. 

4. If a block of storage was specified in the initial printout control card in columns 
1-6, the contents of this block have been printed out, together with a printed 
line indicating the storage limits specified and a heading line identifying the 
units positions of printed output; otherwise no initial printout occurs. 

If the END card, whose use is optional but recommended, is used as the last card of the 
Remove Linkages deck, program execution begins automatically. From this point on the 
operation is the same as that previously described for the Insert Linkages to Selective 
Print Storage routine. 
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